Ну алгоритм это последовательность действий=> решение..
Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end
// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035