Написать программу,которая выводит таблицу умножения на 7. Количество чисел задает сам пользователь.

// Написать программу,которая выводит таблицу умножения на 7.
// Количество чисел задает сам пользователь.
// Pascal-ABC
var
  i, n: integer;
 
begin
  readln(n);
  writeln('  i  i*7');
  writeln('========');
  for i:= 1 to n do
    writeln(i:3, i*7:4);
end.

{ Написать программу,которая выводит таблицу умножения на 7.
 Количество чисел задает сам пользователь. }
 
var
  i, n: integer;
 
begin
  readln(n);
  writeln('  i  i*7');
  writeln('========');
  for i:= 1 to n do
    writeln(i:3, i*7:4);
  readln;
end.

// Написать программу, вычисляющую частное от деления двух целых чисел. 
// при этом в программе предусмотреть вывод сообщения об ошибке при вводе дробного 
// числа и при вводе делителя, равного нулю.
// ABC
var
  a,b,c: integer;
  x: real;
  ErrLevel:0..2;
begin
  ErrLevel := 0;
  readln(x);
  if int(x)<>x then
    ErrLevel := 1
  else
    begin
      a:= trunc(x);
      readln(x);
      if int(x)<>x then
        ErrLevel := 1
      else
        begin
          b:= trunc(x);
          if b=0 then
            ErrLevel := 2
          else
            c:= a div b;
        end;
    end;
 
  case ErrLevel of
    0: writeln(a, ' div ',b,'=',c);
    1: writeln('Введено вещественное число');
    2: writeln('Деление на ноль')
  else
    writeln('Неизвестная ошибка');
  end;
    readln;
end.

var
  i, n: integer;
  x,s,k: integer;
  avg: real;
begin
  readln(n);
  s:=0;
  k:=0;
 
  for i:= 1 to n do
    begin
      readln(x);
      if (x>10) and (x<25) then
        begin
          inc(k);
          s:= s+x;
        end;
    end;
 
  write(s: 4, k: 4);
 
  if (k=0) then
    writeln(' Íåò òàêèõ ÷èñåë')
  else
    begin
      avg:=s/k;
      writeln(avg:6:2);
    end;
  readln;
end.

program delenue;
var a, b: integer; c: real;
begin
writeln('vvedite delimoe', a);
readln(a);
writeln('vvedite delitel', b);
readln(b);
if (?) or (?) then writeln('oshibka vvoda');
if b=0 then writeln('na 0 delit nelza');
c:=a/b;
writeln (c);
end.

program delenue;
var a, b: integer; c: real;
begin
writeln('vvedite delimoe', a);
readln(a);
writeln('vvedite delitel', b);
readln(b);
if (?) or (?) then writeln('oshibka vvoda');
if b=0 then writeln('na 0 delit nelza');
c:=a/b;
writeln (c);
end.

var a,  b, c: real;
begin
writeln('vvedite delimoe');
readln(a);
writeln('vvedite delitel');
readln(b);
if b=0 then writeln('na 0 delit nelza');
c:=a/b;
writeln (c:3:4);
readln;
end.

Program L4_V19_Z21;
 
Uses crt;
 
Const n=3;
 
Var M: array [1..n, 1..n] of
integer;
 
S: array [1..n] of integer;
 
Max, Imax, Jmax, j,i: integer;
 
Begin
 
Clrscr;
 
Writeln(‘vvedite matr. M:’);
 
For i:=1 to n do
 
For j:= to n do read (M [I,j] );
 
Writeln (‘calc:’);
 
Max:= M[I,j];
 
For i:=1 to n do
 
For j:=1 to n do if m[I,j]>max then
Begin max:= M[I,j]; Imax:=I ;Jmax:=j;
 
End;
 
Writeln ([‘max’, Imax’,’,’,Jmax,’]
=’,max);
 
For i:=1 to n do if i=Imax then
 
Begin
 
For J:=1 to n do write (M[I,j],’’);
 
Writeln;
 
End;
 
For j:=1 to n do if J-Jmax then
 
Begin
 
For i:=1 to n do write(M[I,j],’’);
 
Writeln;
 
End;
 
Readkay.
 
End.