Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
1 Мб=1000000 байт
0,5 Мб=1000000\2=500000 байт
1 байт=8 бит
512\8=64 байт
1 Гб=1024*1024 Кб
2048 Кб=2048\1048576=0,001953125 Гб
2 байт=2*8=16 бит
1 Кб=1000 байт
1000000 байт=1000000\1000=1000 Кб
Сообщение состоит из 1280символов
Р.С. извините если неправильно понял вопроса
Var
a,b,p,s:real;
begin
Writeln('Введите значение а = ');
read(a);
writeln('Введите значение b = ');
read(b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь = ',s);
Writeln('Периметр = ', p);
<span>end.</span>
Var a:array[1..3] of integer;
i:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i]>0 then writeln(sqr(a[i]));
readln;
<span>end.</span>