Var a:integer; begin a:=5; write(a*4); end.
а можешь полностью написать?
так полностью
начиная со слова program
program asd;
uses crt;
все остальное так же
Var p,a: integer; begin a:=5; p:=4*a; writeln(p); end.