Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
2^i=256
отсюда i=8 бит=1 байт
I=20*20*1=400 байт или 0.39 Кбайт
var i,n:real;
begin
read (n);
for i:=1 to 10 do
write (i*n/10)
end.
Var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a > b then writeln(a,'больше чем',b);
else writeln(a,'Меньше чем',b);
end.