Question

Составить программу перевода метров в ядры если 1 метр равняется 0,91 ядра на промежутки от 1 до 20

Answer 1

Var a,b:real:
begin 
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.