Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
В биты помню это 128 байт=1024 бит
а вот в кб не помню
1. Пропущен пробел в "int i, s;" и в "int i=0;"
2. При "int s=0;" и "int i=0;" не надо ставить "инт". То есть: "s=0;" и "i=0"