Помогите пожалуйста решить.Срочно.

1) Ну, с набором и компиляцией, думаю, ты справишься сама.
Результат её выполнения - текст (в столбик, т. е. в данный момент - в 2 строчки): "30" и "Привет". Изменить - легко: строку Writeln (5*6); заменяешь на writeln (5*6+7); или writeln (30+7); или ещё как-либо.

2) Тут 4 ошибки, а не 3: 1 - нет пробела в 1-ой строке (верхней), 2 - название программы написано кириллицей, 3 - не указана переменная "Summa", 4 - после end стоит точка с запятой. Думаю, что с исправлением справишься сама.

3) Не понял про алгоритм: блок-схему или программу?

4) Аналогично, как и №3.

5) См. со следующей строки:
Program P1;
uses crt;
var A, R, Sc, Sq: real;
begin
clrscr;
write ('Введите сторону квадрата: ');
readln (A);
if A<0 then write ('Ошибка: сторона квадрата не может быть отрицательной. Программа завершена.') else begin
write ('Введите радиус круга: ');
readln (R);
if R<0 then write ('Ошибка: радиус круга не может быть отрицательным. Программа завершена.') else begin
Sc:=pi*sqr (R);
Sq:=sqr (A);
if Sc>Sq then write ('Площадь круга больше. Она равна: ', Sc) else
if Sc<Sq then write ('Площадь квадрата больше. Она равна: ', Sq) else write ('Площади фигур равны. Их значение составляет: ', Sc);
end;
end;
readkey;
end.

6) Не понял: просто объявить или написать программу?

7) Какой язык программирования? Паскаль? АЛГОЛ? Кобол? Си? Питон? Фортран? Или ещё на какой? - Ладно, предположу, что на Паскаль (Pascal):

ввести a, b; - не совсем понял (1 или 2 строки), но ладно: read (a, b) или readln (a, b) - оба варианта подходят

увеличить a в 10 раз; - a:=a*10

уменьшить b в 4 раза; - b:=b/4

напечатать a, b. - write (a, b) или writeln (a, b) - оба варианта подходят.

1. Вывод: 30
привет
чтобы было 37 пеши так:
program Tutor;
begin
Writeln(5*6+1);
Writeln('Привет');
End.
2.(пишу как должно быть)
program Ошибки;
var Summa: integer;
begin
Summa:=6+8;
end.
3.
var a,b,c,d: real;
begin
writeln('Введите первое число: ')
readln(a)
writeln('Введите второе число: ')
readln(b)
writeln('Введите тертье число: ')
readln(c)
d:= (a+b+c)/3
writeln('Среднее арефмитическое = ',d )
end.
(вроде бы так)
4.
var x,y,sum,um: real;
begin
writeln('Введите число X: ')
readln(x)
writeln('Введите число Y: ')
readln(y)
sum:= x+y
um:=x*y
writeln('Сумма чисел = ',sum )
writeln('Произведение чисел = ',um)
end.
5.
var a,sq,r,sr: real;
begin
writeln('Введите сторону квадрата : ')
readln(a)
writeln('Введите радиус : ')
readln(r)
sq:= a**2
sr:=r**2*3.14
if sq>sr then
writeln('Площадь квадрата больше')
end;
if sr>sq then
writeln('Площадь круга больше = ')
end;
end.
7.read(a,b)
a:=a*10
b:=b/4
write(a,b)