var K, O: real;
begin
read(K);
O:= K/5;
write(K-O);
end.
Ввод 1 - кол-во косуль
var P, M, N: integer;
read(P);
M:= P*10;
read(N);
write(M*N);
Ввод 1 - стоимость пенала
Ввод 2 - во сколько раз портфель дешевле компьютера
var K, O: real;
begin
read(K);
O:= K/5;
write(K-O);
end.
Ввод 1 - кол-во косуль
Вторая задача:var P, M, N: integer;
begin
read(P);
M:= P*10;
read(N);
write(M*N);
end.
Ввод 1 - стоимость пенала
Ввод 2 - во сколько раз портфель дешевле компьютера