Ответ:

Первая задача:

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 - во сколько раз портфель дешевле компьютера