Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
C)И92 - нельзя использовать кириллицу
I)fg-л23 - нельзя использовать кириллицу, символ "-"
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
Находим периметр каждой клумбы
1. 11*4=44
2.11*2+3*2=28
3.3
4.11*2+3*2=28
44+28+3+28=103