Помогите пожалуйста. Информатика Paskal

Question

написать программу к задаче: 
Даны целые числа k и m. Если числа не равны, то записать в ячейки k и m квадраты соответствующих чисел. Если исходные числа равны, то записать в ячейки k и m нули. В обоих случаях вывести новое содержимое ячеек k и m на экран.

Олег Завгороднев · Accepted Answer

program qq; 
var k,m: integer; 
begin 
 read(k,m); 
 if k=m then 
 begin 
 k:=0; 
 m:=0; 
 else 
 k:=sqrk; 
 m:=sqrm; 
 end; 
writeln (k,m); 
end.