1. Даны два высказывания: A={п-целое число} и B={36-четное; Определить истинность высказывания .

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.

мало данных для главное - размер пробоины и размер листа

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end.