Question

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

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.