Var n: integer;
<span> s: array[0..3] of string = ('зима','весна','лето','осень');
</span><span>begin
</span><span> write('месяц: '); readln(n);
</span><span> if n in [1..12] then
</span><span> begin
</span><span> n:=n mod 12;
</span><span> writeln(s[n div 3]);
</span><span> end
</span><span> else writeln('не верный ввод');
</span><span>end.
</span>месяц: 12
<span>зима
</span><span>месяц: 15
</span><span>не верный ввод
</span>
Лист защищен без пароля, чтобы случайно не повредить формулы.
Var
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
<em><u>Результат выполнения программы:</u></em>
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.