Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin
kv = i*i;
sum:=sum+kv;
kv:=0;
end;
end.
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=6 then writeln('Суббота');
If a=7 then writeln('Воскресенье');
end.
Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.