Program f;
var y, n: real;
begin
readln (y);
n := (19 + y) * 2;
writeln (n);
end.
Объяснение:
Я не понял нужна тебе программа или нет так что:
Writeln((19+y)*2);
Program f;
var y, n: real;
begin
readln (y);
n := (19 + y) * 2;
writeln (n);
end.
Объяснение:
Я не понял нужна тебе программа или нет так что:
Program f;
var y, n: real;
begin
readln (y);
n := (19 + y) * 2;
writeln (n);
end.
Writeln((19+y)*2);