Объяснение:
F1...F12 функциональные клавиши в верхнем ряду стандартной клавиатуры. Используются для запуска привязанных к ним стандартных функций. Действие клавиш зависит от активной в данный момент программы. Как правило переименовать/редактировать, F3 - найти/замениить, F4 - работает по разному.
Красные подписи на ваших функциональных клавишах означают управление звуком и будут работать только при установке специального драйвера (программы, позволяющей компьютеру задействовать все функции устройства) этой конкретной клавиатуры. Задействованы они могут быть только при нажатой дополнительной кнопке с подписью типа "Fn" тоже красного цвета.
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end.