Очень плохо видно, и какие именно столбцы, сделай фото крупнее
Var x,y:real;
begin
read(x,y);
if x<0 then x:=x*x else x:=sqrt(x);
if y<0 then y:=y*y else y:=sqrt(y);
write(x,' ',y);
end.
Прямоугольник в блок-схемах в языке Pascal, означает выполнения действия.
Program task1;
var a :integer;
begin
randomize; a:= 0; while (a <> 5) and (a <> 6) do a:= random(7); writeln(a);
<span>end.
program task2;
var Digit, i :integer; DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); for i:= length(DigitStr) downto 1 do write(DigitStr[i]);
<span>end.
program task3;
var Digit :integer; NewDigit, DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); NewDigit:= DigitStr[3] + DigitStr[4] + DigitStr[1] + DigitStr[2]; writeln(NewDigit);
<span>end.</span></span></span>