Сколько ошибок допущено в программе? Найдите все ошибки и исправьте их (В Паскале)
Program zadacha;
Var a: integer;
begin
writeln('введите число а')
readln(a);
if a>0 then a:=a+1;
writeln (' Полученное число ' a)
end.

Program zadacha;

Var a: integer;

begin

writeln('введите число а'); - точка с запятой в конце оператора

readln(a);

if a>0 then a:=a+1;

writeln (' Полученное число ', a); - запятая перед выводом значения переменной и точка с запятой в конце оператора

end.

Две ошибки

Program zadacha;

Var a: integer;

begin

writeln('введите число а'); // Точка с запятой

readln(a);

if a>0 then a:=a+1;

writeln (' Полученное число ', a) // запятая

end.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.