1 увімкнути системний блок
2 натиснути на павер
3 увімкнути монітор
Var a,b,c,d,m,n:real;
begin
writeln('Введите размеры комнаты (a,b)');
readln(a,b);
writeln('Введите размеры окна (с,d)');
readln(c,d);
writeln('Введите размеры двери (m,n)');
readln(m,n);
writeln('Площадь для оклейки: ',a*b-c*d-m*n);
end.
Var s:array[1..5] of string;
b:boolean;
i:integer;
begin;
b:=false;
for i:=1 to 5 do
begin;
readln(s[i]);
if s[i]='гимназия' then b:=true;
end;
if b=true then writeln('Да') else writeln('Нет');
end.