Информатика! Привет, помогите кто знает пожалуйста. Создать программу, запрашивающую с клавиатуры два числа типа Real ( с дробной часть) и считающие их сумму. Оба числа проверить процедурой Procedure chek(x:
integer); Если число меньше единицы вывести на экран фразу "Маловато что-то" и продолжить программу
Хоуми, у тебя в процедуре целочисленный тип, а вводимые числа вещественного. procedure chek(x:real); begin if (x<1) then writeln('Число ',x,'. Маловато что-то'); end; var a,b,c:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); c:=a+b; writeln('Результат',c); chek(a); chek(b); end.