*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
var
i,s:integer;
Begin
s:=1;
for i:= 1 to 15 do
if i mod 2=1 then s:=s*i*i;
writeln(s);
End.
Program log1;
Var x,y,s:integer;
Begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=sqr(x)+sqr(y);
if s<=4
then writeln('4 равен или больше чем сумма квадратов x и y')
else writeln('4 меньше суммы квадратов x и y');
end.