Var a, b: real;
begin
write('Введите первое число = ');readln (a);
write('Введите второе число = ');readln (b);
writeln(a,' * ',b,' = ',a*b);
writeln(a,' + ',b,' = ',a+b);
end.
bool переменная может принимать значения true и false - правда и не правда.
Логический тип данных нужен, чтобы программировать различные альтернативные действия.
результат сравнения - bool
Стоимость со скидкой=Цена со скидкой*кол-во.
Стоимость с учётом НДС=Стоимость со скидкой*(1-0,2)=Стоимость со скидкой*0,8.
Var
a: array[1..4] of integer;
i, max: integer;
begin
for i := 1 to 4 do
readln(a[i]);
max := a[1];
for i := 1 to 4 do
if (a[i] mod 2 = 0) and (a[i] >= max) then
max := a[i];
if max mod 2 = 0 then
writeln(max)
else
writeln('not found');
end.