Напишите программу в Pascal , которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.

Работает?

да. могу прицепить скрин работы)

Нет, благодарю, как проверю, отмечу как лучший ответ.

Спасибо, братишка.

vara, b, c: integer;beginreadln(a, b, c); //вводим a b cif a > 0 then writeln(a*a) //если a > 0 вывести квадрат aelsewriteln(a); //иначе вывести aif b > 0 then writeln(b*b) //если b > 0 вывести квадрат belsewriteln(b); //иначе вывести bif c > 0 then writeln(c*c) //если c > 0 вывести квадрат celsewriteln(c); //иначе вывести cend.