Var
k: real;
begin
readln(k);
writeln(a = , k / 5, ; b = c = , k / 5 * 2);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.