Begin
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
end.
если a>5 то a:=a+20 иначе a:=a*10
Подставляем значение а.
1) a=4
если 4>5 то a:=4+20 иначе a:=4*10
Утверждение ложно, выполняется то, что после "иначе". a:=4*10 = 40
2) a=17
если 17>5 то a:=17+20 иначе a:=17*10
Утверждение истинно, выполняется то, что после "то". a:=17+20 = 37
CLS
INPUT "t(cek) = ", t
PRINT t \ 3600; "."; (t \ 60) MOD 60; "."; t MOD 60
END