Дано вещественное число. Напишите программу, каторая возводит в квадрат целую…

Так уж и быть, напишу на Pascal'е vara: real; beginread (a); a: =Trunc (a); {отбрасывание дробной части}a: =a*a; writeln (a); end. P.S В следующий раз пиши на чем писать программу (а то я обычно пишу на таком языке, которого не знает автор задачи).