Photos PROCEDURE VAR BEGIN

< Previous photo
Photo - 79
Next photo >
Procedure var begin. Var a integer begin writeln. Var s,t: integer; begin readln(s); readln(t); if (s < 10) or (t > 10) then writeln('да') else writeln('нет') end.. Var s k integer begin readln s readln k if s. Program var begin end.
Var a integer begin writeln. Var s,t: integer; begin readln(s); readln(t); if (s < 10) or (t > 10) then writeln('да') else writeln('нет') end.. Var s k integer begin readln s readln k if s. Program var begin end.

See also