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


Program perimetr;
Var a,b:integer;
Begin
write (a=5); readln(a);
write (b=4); readln(b);
S:=5*4;
P:=(5+4)*2;
writeln(s=20);s
writeln(p=18);p
end.

катя13092006    1   27.04.2020 16:42    0