Температура в градусац цельсия изменяется от 0 до 100 с шагом 5. написать программу перевода температуры из градусов цельсия в градусы фаренгейта(f). формула перевода: f=1.8+32.

program c2f;

uses

    crt;

var i: integer;

        c,f: real;

begin

    clrscr; {очистить экран}

    writeln('from celsius to fahrenheit: ');

    write('type temperature (in celsius): '); read(c);

    f : = 32 + 2*c * (1 - 1/10);

    writeln('temperature in fahrenheit: ', f: 3: 3);

    { : 3: 3 - общее количество знаков и знаков после запятой }

    writeln(' celsius to fahrenheit from 0 to 100, step 5: ');

    i : = 0;

    while i < = 100 do

    begin

        f : = 32 + 2*i * (1 - 1/10);

        writeln(' c = ',i: 3,' | f = ', f: 3: 3);

        i : = i + 5;

    end;

    readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

end.

программа на паскале

var a: array [1..21,1..2] of real; i: integer; begin

a[1,1]: =0.0 ; for i: =2 to 21 doa[i,1]: =a[i-1,1]+5; for i: =1 to 21 doa[i,2]: =a[i,1]*1.8+32.0; for i: =1 to 21 dowriteln (a[i,1]: 3: 0,' celcia = ',a[i,2]: 3: 0,' farrengeit'); readln; end.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.