Задание: Найдите ошибки в фрагменте программы

1.

Найдите ошибки
в фрагменте программы

2. Function Pro(a:integer): Boolean; … writeln(Pro(12));

3. Funktion Sum(a,x:integer); begin Sum:=Sum+a; end; {---------------} begin x:=Sum(10); end.

4. Function Sum(a,b:integer): real; begin Sum:=Sum+a; end; {---------------} begin Sum(10,1.1,15); end.

5. Funktion Sum(a,b: real): integer; var s:integer; begin S:=S+a+b; end; {---------------} begin

writeln(Sum(10,sun(20,5),Sum(5,7)));
end.

6. Function Pro(a:integer): Boolean; var n,i: Integer; begin k:=0; pro:=false; for i:=1 to a do if a mod i=0 then n:=n+1; if n=2

then pro:=true;
end;
{---------------}
var k,m,j;integer;
begin
readln(k,m);
for j:=k to m do if pro(j) then writeln(j);
end.