Уровень-применение. Угадайте слово в ребусе​

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

1)

высказывание   не (не  а  и  b)  будет ложным когда высказывание

(не  а  и  b)   будет истинным, оно в свою очередь будет истинным когда

будут истинны одновременно высказывание  не  а  и   высказывание  b

то есть когда а ложное а в истинное

2)

число 376 трехзначное и четное

а=число 376 трехзначное

в=число 376 четное

а и в

или

если сумма цифр числа делится на 3, то число делится  на  3

а=сумма цифр числа делится на 3

в=число делится  на  3

если а то в

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.