НУЖНА ПОМОЩЬ!!!!«Основы алгоритмизации и программирования»..СПАСИБО ОГРОМНОЕ.

На каком языке программирования надо написать, м?
program temperature;
uses crt;
var a : real;
begin
clrscr;
write ('Enter temperature in Celsius:');
readln (a);
{Тфаренгейта=1,8*Тцельсия+32, Ткельви-на=Тцельсия+273,15, Тренкина=1,8*Тцельсия+492. }
writeln('Farenhight: ', 1.8 * a + 32, '; Kelvin: ', a + 273.15, '; Renkin: ', 1.8 * a + 492);
readln();
end.

program conditions;
uses crt;
var x, y, a, b : real;
begin
clrscr;
write ('Enter 2 numbers:');
readln( x, y );
a := ( x + y ) / 2;
b := 2 * x * y;
if x < y then begin
x := a;
y := b;
end else begin
x := b;
y := a;
end;
writeln('X = ', x, '; Y = ', y, '.');
end.

program triangle;
uses crt;
var n: integer;
x: real;
begin
clrscr;
write('Enter number and value:');
readln(n, x);
case n of
1: begin writeln('Katet = ', x, '; Gipotenuza = ', x * sqrt(2), '; Vysota = ', x / sqrt(2), '; Ploshad = ', x * x / 2) end;
2: begin writeln('Katet = ', x / sqrt(2), '; Gipotenuza = ', x, '; Vysota = ', x / 2, '; Ploshad = ', x * x / 4) end;
3: begin writeln('Katet = ', x * sqrt(2), '; Gipotenuza = ', x * 2, '; Vysota = ', x, '; Ploshad = ', x * x) end;
4: begin writeln('Katet = ', sqrt(2 * x), '; Gipotenuza = ', 2 * sqrt(x), '; Vysota = ', sqrt(x), '; Ploshad = ', x) end;
end;
end.

Стёрто.
каюсь запутался в формулах

Простите, а кто по вашему такие программисты? вы думаете мы кучу лет учились что бы за спасибо делать неучам домашку?