В кодировке UTF-32 каждый символ кодируется 32 битами. Саша написал текст (в нём нет лишних пробелов): «Мята, тыква, фасоль, артишок, патиссон, лагенария — овощи».

Вот так лучше и работает правильно:

var
a: integer;

begin
writeln('Введите номер дня недели');
read(a);
if (a < 1) or (a > 7) then
Write('Ошибка')
else
begin
if a = 1 then
writeln('Понедельник') ;
if a = 2 then
writeln('Вторник') ;
if a = 3 then
writeln('Среда') ;
if a = 4 then
writeln('Четверг') ;
if a = 5 then
writeln('Пятница') ;
if a = 6 then
writeln('Суббота') ;
if a = 7 then
writeln('Воскресенье') end ;
end.

А ещё лучше подобные задания через оператор case делать:

var
n: Integer;

begin
Write('Введите номер дня недели: ');
readln(n);
case n of
1: WriteLn('понедельник');
2: WriteLn('вторник');
3: WriteLn('среда');
4: WriteLn('четверг');
5: WriteLn('пятница');
6: WriteLn('суббота');
7: WriteLn('воскресенье') else Write('ошибка');
end;
end.

#include <iostream>

#include<vector>

using namespace std;

int square(int x){

for (int i = 1; i <= 45; ++i){

if (i * i <= x){

continue;

}

return (i - 1) * (i - 1);

}

}

int main()

{

int x, y, xwas, ywas, xywas;

cin >> x >> y;

xwas = square(x);

ywas = square(y);

xywas = square(x + y);

if (xwas + ywas < xywas){

cout << "Petya gives paint to Vasya";

}

else if (xwas + ywas == xywas){

cout << "Equal";

}

else {

cout << "Petya leaves paint to himself";

}

return 0;

}#include <iostream>

#include<vector>

using namespace std;

int square(int x){

for (int i = 1; i <= 45; ++i){

if (i * i <= x){

continue;

}

return (i - 1) * (i - 1);

}

}

int main()

{

int x, y, xwas, ywas, xywas;

cin >> x >> y;

xwas = square(x);

ywas = square(y);

xywas = square(x + y);

if (xwas + ywas < xywas){

cout << "Petya gives paint to Vasya";

}

else if (xwas + ywas == xywas){

cout << "Equal";

}

else {

cout << "Petya leaves paint to himself";

}

return 0;

}

Объяснение: