Program hfi; var a,b: integer; с,f: real; begin writeln('введіть значення а'); read(a); writeln('введіть значення b'); read(b); writeln('введіть значення с'); read(с); writeln('фаренгейт цельсій'); for a: =1 to b do begin f: =1.8*c+32; writeln(f: 4,c: 15: 2) end; readln; end. неожиданный символ "с" строка 2
var a,b:integer;
c,f:real;
begin
writeln('Введіть значення а');
read(a);
writeln('Введіть значення b');
read(b);
writeln('Введіть значення С');
read(c);
writeln('Фаренгейт Цельсій');
for a:=a to b do begin
F:=1.8*c+32;
writeln(f:4,C:15:2)
end;
readln;
end.