Question

Составьте программу в паскале, которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения. Дам 25 баллов! Помогите пожалуйста

Answer 1

program plan;

var

a,b,c : real;

 begin

readln(a,b,c);

if a >0 then

 a := a *a;

if b >0 then

 b := b *b;

if c >0 then

 c := c *c;

 end.