Сколько раз исполнится цикл:

i:=4;
while i<10 do
i:=i+3;

2 раза

Объяснение:

1-й раз i = 7

2-й раз i = 10

3-й уже не войдет

uses crt; var

  a,b: integer; begin  write('введи возраст саши: '); read(a);

  write('введи возраст маши: '); read(b);

  writeln;   if a> b then write('саша старше маши');   if a< b then write('маша страше саши');   if a=b then write('маша и саша - ровесники'); end.

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.