Pascal. ) 1) абитурьент сдает четыре экзамена. задан проходной . сообщить о результате приема в институт. 2) вычеркнуть в данной строке каждую к-ю букву.

Const n = 4;
var x, y, z: real;
  i: integer;
begin
  write('проходной = '); 
  readln(x);
  for i := 1 to n do begin
    write('оценка ', i, ' = '); 
    readln(z);
    y := y + z;
  end;
  if y/n >= x then 
    writeln('поступил')
  else
    writeln('не поступил');
end.

// Вторая
var i, k: integer;
  a, b: string;
begin
  write('k = ');
  readln(k);
  write('строка = ');
  readln(a);
  for i := 1 to Length(a) do
    if i mod k > 0 then 
      b := b + a[i];
  writeln(b);
end.