Установите соответствиего между элементами трёх столбцов

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, b, c, s, p{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных}begin {начало выполнения программы}  write('a = '); {вывод на экран текста и/или переменных (в данном случае выведится "а = ")}  readln(a); {считывание переменной а}  write('b = ');   readln(b);   write('c = ');   readln(c);   s : = a + b + c; {присваивание значение переменной s равной сумме a, b, c}  p : = a * b * c; {присваивание значение переменной p равной произведению a, b, c}  writeln('сумма равна ', s); {вывод на экрантеста " сумма равна " и значения переменной s}  writeln('произведение равно ', p); {вывод на экрантеста " произведение равно " и значения переменной p}  readln; {ожидание нажатия клавиши enter}end.