1) определить чётное и нечётное, положительное или отрицательное число.

Var x: integer; begin writeln('введите число'); readln(x); if x mod 2=0 then writeln('число ',x,' - чётное') else writeln('число ',x,' - нечётное'); if x> 0 then writeln('число ',x,' - положительное') else if x< 0 then writeln('число ',x,' - отрицательное') else writeln('число ',x,' - неположительное и неотрицательное число') end.

Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.