Audi; BMW; Volkswagen; Datsun; KIA
Ответ:
var
r1, r2, r3: real;
begin
readln(r1, r2, r3);
if (r1>=r2) and (r1>=r3) then
writeln(r1)
else if (r2>=r1) and (r2>=r3) then
writeln(r2)
else
writeln(r3);
end.
Объяснение:
Ну, во первых sqr - команда для возведения числа в квадрат, а а^3 - куб числа. Если тебе нужен куб, в выводе просто напиши а*а*а:
Writeln(‘a^3=‘,a*a*a);
Если же все таки нужен квадрат, то тебе не нужна запятая после sqr. Ты пишешь sqr(a). Или же просто а*а. Ну и конечно, надо будет поправить 3 на 2))
Writeln(‘a^2=‘,a*a);
Writeln(‘a^2=‘,sqr(a));
Program p_1;
Uses Crt;
var
n1,n2,n3, max: integer;
begin
write('Введите 1 число: ');
readln(n1);
write('Введите 2 число: ');
readln(n2);
write('Введите 3 число: ');
readln(n3);
max:=n1;
if n1<n2 then
max:=n2;
if n3>n2 then
max:=n3;
writeln('Наибольшее число: ',max);
readln;
end.