Ошибки в программных кодах во free pascal

[user100]

1. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.

var a, b, c, s: real
begin
writeln ('введите значение катетов');
readln(a);
readln(b);
c:=sqrt(a*a+b*b);
s:=1/2*a*b;
writeln('c=',c);
writeln('s=',s);
end.

2. Даны действительные числа х, у, z. Вычислить mах (х+у+z, xyz).

var x, y, z: real;
begin
writeln('введите значения x, y, z');
readln(x);
readln(y);
readln(z);
if (x+y+z) > (x*y*z) then
writeln('сумма больше')
else
writeln('произведение больше');
end.

3. Найти 100 первых простых чисел.

var i, j, k: integer;
begin
for i:=1 to 100 do
begin
i:=2
k:=round(sqrt(i));
while (i mod j <> 0) and (j<=k) do inc(j);
if (j>k) then while (i, '');
end;
end.

Помогите найти ошибки.

[Stilet]

var a, b, c, s: real

а точка-запятая где?
И поставь в конец перед end инструкцию readln;

i:=2

Точка-запятая где? И кстати i - у тебя счетчик цикла, не принято (и даже запрещено) изменять счетчик цикла внутри самого цикла. Если это шаг то перепиши:

i:=1;while i<=100 do
begin
i:=i+2;
...

if (j>k) then while (i, '');

Может быть

if (j>k) then write (i, ' ');

?