תודה,יניב.
program name;varA :integer;beginwriteln('enter the number 0');readln(A);
begin
writeln('enter the number 0');readln(A);
זה אם למדת פקודת השמה..
program name;vara:integer;begina:=0end.